← Index
NYTProf Performance Profile   
For starman worker -M FindBin --max-requests 50 --workers 2 --user=kohadev-koha --group kohadev-koha --pid /var/run/koha/kohadev/plack.pid --daemonize --access-log /var/log/koha/kohadev/plack.log --error-log /var/log/koha/kohadev/plack-error.log -E deployment --socket /var/run/koha/kohadev/plack.sock /etc/koha/sites/kohadev/plack.psgi
  Run on Fri Jan 8 13:01:18 2016
Reported on Fri Jan 8 13:01:36 2016

Filename(eval 1108)[/usr/share/perl5/Sub/Quote.pm:5]
StatementsExecuted 20 statements in 544µs
Eval Invoked At/usr/share/perl5/Sub/Quote.pm line 5
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
733180µs19.2msDBIx::Class::Storage::DBI::::select_singleDBIx::Class::Storage::DBI::select_single
11119µs41µsSub::Quote::::BEGIN@5 Sub::Quote::BEGIN@5
11110µs10µsDBIx::Class::Storage::DBI::::BEGIN@11.2971DBIx::Class::Storage::DBI::BEGIN@11.2971
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
22114µs my $orig = ${$_[1]->{"\$orig"}};
3166µs my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4144µs my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
52142µs263µs
# spent 41µs (19+22) within Sub::Quote::BEGIN@5 which was called: # once (19µs+22µs) by Sub::Quote::_clean_eval at line 5
no warnings 'closure';
# spent 41µs making 1 call to Sub::Quote::BEGIN@5 # spent 22µs making 1 call to warnings::unimport
6
# spent 19.2ms (180µs+19.0) within DBIx::Class::Storage::DBI::select_single which was called 7 times, avg 2.74ms/call: # 3 times (118µs+18.1ms) by DBIx::Class::ResultSet::single at line 46, avg 6.08ms/call # 3 times (31µs+894µs) by DBIx::Class::ResultSet::single at line 1099 of DBIx/Class/ResultSet.pm, avg 308µs/call # once (31µs+0s) by DBIx::Class::ResultSet::single at line 56 of Sub/Defer.pm
sub DBIx::Class::Storage::DBI::select_single {
7 $_QUOTED if 0;
83300ns $_UNQUOTED if 0;
9# BEGIN quote_sub PRELUDE
10package DBIx::Class::Storage::DBI;
11
# spent 10µs within DBIx::Class::Storage::DBI::BEGIN@11.2971 which was called: # once (10µs+0s) by Sub::Quote::_clean_eval at line 16
BEGIN {
1212µs $^H = "133090";
131600ns ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUU";
1418µs %^H = (
15 );
16156µs110µs}
# spent 10µs making 1 call to DBIx::Class::Storage::DBI::BEGIN@11.2971
17# END quote_sub PRELUDE
18
19343µs if (
20 # only fire when invoked on an instance, a valid class-based invocation
21 # would e.g. be setting a default for an inherited accessor
22 ref $_[0]
23 and
24 ! $_[0]->{_driver_determined}
25 and
26 ! $_[0]->{_in_determine_driver}
27 and
28 # if this is a known *setter* - just set it, no need to connect
29 # and determine the driver
30 ( 1 or @_ <= 1 )
31 and
32 # Only try to determine stuff if we have *something* that either is or can
33 # provide a DSN. Allows for bare $schema's generated with a plain ->connect()
34 # to still be marginally useful
35 $_[0]->_dbi_connect_info->[0]
36 ) {
37 $_[0]->_determine_driver;
38
39 # work around http://rt.perl.org/rt3/Public/Bug/Display.html?id=35878
40 goto $_[0]->can("select_single") unless DBIx::Class::_ENV_::BROKEN_GOTO;
41
42 my $cref = $_[0]->can("select_single");
43 goto $cref;
44 }
45
46315µs318.2ms goto $orig;
# spent 18.2ms making 3 calls to DBIx::Class::Storage::DBI::select_single, avg 6.08ms/call
47 }
48131µs $$_UNQUOTED = \&DBIx::Class::Storage::DBI::select_single
49}
50122µs1;
51
52;